home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / akcl / akcl1615.lha / h / e15.h < prev    next >
Text File  |  1988-09-19  |  2KB  |  79 lines
  1. #define E15
  2.  
  3. #define    AV
  4. #define    MC68K
  5. #define    IEEEFLOAT
  6. #define    UNIX
  7.  
  8. #define MAXPAGE 7000
  9. #define VSSIZE 8152
  10.  
  11.  
  12. #define ADDITIONAL_FEATURES \
  13.              ADD_FEATURE("E15") ;\
  14.              ADD_FEATURE("MC68K"); \
  15.              ADD_FEATURE("UNIPLUS-SYSTEM-V")
  16.  
  17.  
  18.  
  19. #define MEM_SAVE_LOCALS    struct exec header
  20.  
  21.  
  22. #define COPY_TO_SAVE    filecpy(save, original, header.a_syms+header.a_trsize+header.a_drsize);
  23.  
  24.  
  25. #define READ_HEADER    fread(&header, sizeof(header), 1, original); \
  26.     if (header.fmagic != NMAGIC) \
  27.         data_begin \
  28.         = (char *)(TXTRELOC+header.a_text); \
  29.     else \
  30.         data_begin \
  31.         = (char *)((TXTRELOC+header.a_text+(SEGSIZ-1)) & ~(SEGSIZ-1)); \
  32.     data_end = core_end; \
  33.     original_data = header.a_data; \
  34.     header.a_data = data_end - data_begin; \
  35.     header.a_bss = sbrk(0) - core_end; \
  36.     fwrite(&header, sizeof(header), 1, save); 
  37.  
  38. #define FILECPY_HEADER    filecpy(save, original, header.a_text); 
  39.  
  40. #define COPY_TO_SAVE     filecpy(save, original, header.a_syms+header.a_trsize+header.a_drsize)
  41.  
  42. #define exec        bhdr
  43. #define a_text        tsize
  44. #define a_data        dsize
  45. #define a_bss        bsize
  46. #define a_syms        ssize
  47. #define a_trsize    rtsize
  48. #define a_drsize    rdsize
  49. #define    SEGSIZ        (128*1024)
  50. #define    TXTRELOC    (1024*1024)
  51.  
  52. #define NUMBER_OPEN_FILES _NFILE 
  53.  
  54. #define ADDITIONAL_FEATURES \
  55.              ADD_FEATURE("E15");\
  56.              ADD_FEATURE("MC68K"); \
  57.              ADD_FEATURE("UNIPLUS-SYSTEM-V")
  58.  
  59.  
  60.  
  61. #define SET_REAL_MAXPAGE real_maxpage = MAXPAGE
  62.  
  63.  
  64.  
  65.  
  66. #define HOLEPAGE 32
  67.  
  68. #define INIT_ALLOC \
  69.     if (brk(pagetochar(MAXPAGE)) < 0) \
  70.         error("Can't allocate.  Good-bye!.");
  71.  
  72. #define IF_ALLOCATE_ERR \
  73.     if (PAGESIZE*(n - m) > pagetochar(MAXPAGE) - core_end)
  74.  
  75. /* have the getcwd command */
  76.  
  77. #define GETCWD
  78.  
  79.